-- card: 6103 from stack: in.0
-- bmap block id: 0
-- flags: 4000
-- background id: 2612
-- name: SoundCapToRes


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=82 top=302 right=324 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  put (long name of this stack) into sourceStack
  delete first word of sourceStack
  delete first character of sourceStack
  delete last character of sourceStack
  put "Select a stack to copy this resource into."
  put filename("STAK") into fname
  if fname is empty then
    hide message window
    exit mouseup
  end if
  if sourcestack=fname then
    beep
    Answer "Get real.  You can't install it in this stack"
    hide message window
    exit mouseup
  end if

  --
  ModResCopy sourceStack,fname,"XCMD","SoundCapToRes"
  --
  get the result
  if first char of it is "E" then
    put it into the message box
    beep
    answer "Attempt to install resource has failed."
  else
    beep
    answer "Resource installation successful"
  end if
  hide message window
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=163 top=265 right=290 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Convert Sounds
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then
    pass mouseup
  end if

  global SoundName,SampleRate,ResName,Destination

  put "This lets you convert soundcap or soundwave sounds and install them."

  -- get the name of the original sound file
  answer "You may now select the sound file" with "Cancel" or "OK"
  if it = "Cancel" then
    play boing
    hide message window
    exit mouseup
  end if

  put filename(FSSD) into SoundName
  if SoundName is empty then
    hide message window
    play boing
    exit mouseup
  end if
  put quote&SoundName&quote into SoundName

  -- get the sampling rate (between 1 and 4)
  ask "What sample rate should be used? (1,2,3 or 4)" with "2"
  if it <1 or it >4 then
    play boing twice
    hide message window
    exit mouseup
  end if

  if it =1 then put 60 into it else
  if it =2 then put 72 into it else
  if it =3 then put 79 into it else put 84 into it
end if
end if
put it into SampleRate

-- let user name the sound resource
ask "What do you want to name this sound?"
if it is empty then
  play boing
  hide message window
  exit mouseup
end if
put it into ResName

-- get the name of the destination stack
put "Please select the destination stack"
put filename ("STAK") into Destination
if Destination is empty then
  hide message window
  play boing
  exit mouseup
end if
put quote&Destination&quote into Destination

-- do the conversion using the XCMD 'SoundCaptoRes'

-- SoundCapToRes takes four arguments:
-- the name you want to call the sound
-- the file that contains the SoundCap output (in quotes)
-- the stack in which you want to put the sound
-- the base pitch of the sound (60, 72, 79, or 84)

put ResName into Args
put ","&SoundName after Args
put ","&Destination after Args
put ","&SampleRate after Args

do "SoundCaptoRes" && Args

-- go to the target stack and test the sound
push card
go to Destination
play ResName
repeat while the sound is not "done"
end repeat
pop card
end mouseUp



-- part contents for background part 13
----- text -----
5

-- part contents for background part 2
----- text -----
SoundCapToRes

-- part contents for background part 3
----- text -----

This will convert a SoundCap or SoundWave file into a 
'snd' resource and install it into a specified stack.







Thanks to:
? (If anyone knows who wrote this please pass the information on so proper credit can be given.)



-- part contents for background part 10
----- text -----
Syntax:

SoundCapToRes <ResourceName>,
<SourceFile>,<DestinationFile>,
<SampleRate>